home *** CD-ROM | disk | FTP | other *** search
/ Turnbull China Bikeride / Turnbull China Bikeride - Disc 1.iso / ARGONET / PD / PROGRAMMING / DESKLIBC / SOURCES.ZIP / DeskLib / !DLSources / Libraries / MsgTrans / s / FileInfo < prev    next >
Text File  |  1994-11-19  |  792b  |  56 lines
  1. a1 RN 0
  2. a2 RN 1
  3. a3 RN 2
  4. a4 RN 3
  5. v1 RN 4
  6. v2 RN 5
  7. v3 RN 6
  8. v4 RN 7
  9. v5 RN 8
  10. v6 RN 9
  11. sl RN 10
  12. fp RN 11
  13. ip RN 12
  14. sp RN 13
  15. lr RN 14
  16. pc RN 15
  17.  
  18. f0 FN 0
  19. f1 FN 1
  20. f2 FN 2
  21. f3 FN 3
  22. f4 FN 4
  23. f5 FN 5
  24. f6 FN 6
  25. f7 FN 7
  26.  
  27.  
  28. XOS_Bit                         EQU &020000
  29.  
  30. SWI_MessageTrans_FileInfo       EQU &041500
  31. SWI_MessageTrans_OpenFile       EQU &041501
  32. SWI_MessageTrans_Lookup         EQU &041502
  33. SWI_MessageTrans_CloseFile      EQU &041504
  34.  
  35.         AREA |D$$code|, CODE, READONLY
  36.  
  37.         EXPORT MessageTrans_FileInfo
  38.  
  39. MessageTrans_FileInfo
  40.  
  41.         STMFD   sp!,{v1,v2,lr}
  42.  
  43.         MOV     v1,a2
  44.         MOV     v2,a3
  45.         MOV     a2,a1
  46.         SWI     SWI_MessageTrans_FileInfo + XOS_Bit
  47.         STR     a1,[v1]
  48.         STR     a3,[v2]
  49.  
  50.         MOVVC   a1,#0
  51.         LDMFD   sp!,{v1,v2,pc}^
  52.  
  53.         END
  54.  
  55.  
  56.